home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / mebbs / ml11.lha / ML.rexx < prev   
OS/2 REXX Batch file  |  1994-08-06  |  774b  |  41 lines
  1. /* $VER:Mail-Lister_1.1 (c) 1994 by Active Developement M6005
  2. */
  3.  
  4. option result
  5. CLS = 'H'
  6.  
  7. call open cfg, ('s:mail.cfg'), 'R'
  8.     line = readln(cfg)
  9.     parse var line dire
  10. call close(cfg)
  11.  
  12. string = 'list >t:test 'dire' lformat "%s*n%l"'
  13. address command string
  14.     say CLS
  15.     say ''
  16.     say 'Mail-Lister v1.1 (c) 1994 by Active Development M6005'
  17. call open file, ('t:test'), 'R'
  18.     do until eof(file)
  19.     call readln file ; mail=result
  20.     call readln file ; liam=result
  21.  
  22. if mail = "" then call exit
  23.  
  24.     mai = COMPRESS(mail, '.mail')
  25.     a = right(mai,4)
  26.     liam = liam / 4
  27.     b = right(liam,2)
  28.     say 'User ID :'||a||'  Has '||b||' Messages Waiting for him/her'
  29. end
  30.  
  31.  
  32. EXIT:
  33. say ''
  34. call close file
  35.     srint = 'delete t:test QUIET' 
  36.     address command srint 
  37. exit
  38.  
  39. EXIT_IT:
  40. exit
  41.